home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / S-Sound and Music / (c)se.d64 / the kanon.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  24KB  |  944 lines
  1. 10 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  2. 20 REM  THE KANON - JOHANN PACHELBEL
  3. 30 REM
  4. 40 REM      ARRANGED BY ANDY TOY
  5. 50 REM
  6. 60 REM     MAIN DRIVER PROGRAM BY
  7. 70 REM        JIM BUTTERFIELD
  8. 80 REM"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  9. 90 REM
  10. 100 POKE53281,0:POKE53280,0:PRINT"[147]"
  11. 105 PRINTTAB(5)"[212]HE [203]ANON - [202]OHANN [208]ACHELBEL"
  12. 110 L1=54272:L2=54279:L3=54286
  13. 120 H1=L1+1:H2=L2+1:H3=L3+1
  14. 130 V1=L1+4:V2=L2+4:V3=L3+4
  15. 140 POKE 54296,15:REM VOLUME
  16. 150 POKE V1+1,28:POKE V1+2,0:REM ADSR
  17. 160 POKE V2+1,28:POKE V2+2,174
  18. 170 POKE V3+1,28:POKE V3+2,174
  19. 180 T=TI:F=1.8
  20. 200 POKE V1,16:POKE V2,16:POKE V3,16:REM WAVEFORM
  21. 210 READ S:IF S=0 GOTO 290
  22. 220 READ X1,Y1,X2,Y2,X3,Y3
  23. 230 IF X1 THEN POKE H1,X1:POKE L1,Y1:POKE V1,17
  24. 240 IF X2 THEN POKE H2,X2:POKE L2,Y2:POKE V2,17
  25. 250 IF X3 THEN POKE H3,X3:POKE L3,Y3:POKE V3,17
  26. 260 T=T+S*F
  27. 270 IF T>TI GOTO 270
  28. 280 GOTO 200
  29. 290 FORJ=L1 TO 54296:POKE J,0:NEXT J
  30. 300 REM DURATION,HI1,LO1,...,HI3,LO3
  31. 301 DATA 80,0,0,0,0,0,0
  32. 305 REM BAR 1
  33. 310 DATA 40,0,0,8,147,8,147
  34. 320 DATA 40,0,0,6,108,6,108
  35. 330 DATA 40,0,0,7,53,7,53
  36. 340 DATA 40,0,0,5,103,5,103
  37. 345 REM BAR 2
  38. 350 DATA 40,0,0,5,185,5,185
  39. 360 DATA 40,0,0,4,73,4,73
  40. 370 DATA 40,0,0,5,185,5,185
  41. 380 DATA 40,0,0,6,108,6,108
  42. 385 REM BAR 3
  43. 390 DATA 40,43,52,8,147,8,147
  44. 400 DATA 40,38,126,6,108,6,108
  45. 410 DATA 40,34,75,7,53,7,53
  46. 420 DATA 40,32,94,5,103,5,103
  47. 425 REM BAR 4
  48. 430 DATA 40,28,214,5,185,5,185
  49. 440 DATA 40,25,177,4,73,4,73
  50. 450 DATA 40,28,214,5,185,5,185
  51. 460 DATA 40,32,94,6,108,6,108
  52. 465 REM BAR 5
  53. 470 DATA 40,34,75,21,154,8,147
  54. 480 DATA 40,32,94,19,63,6,108
  55. 490 DATA 40,28,214,17,37,7,53
  56. 500 DATA 40,25,177,16,47,5,103
  57. 505 REM BAR 6
  58. 510 DATA 40,22,227,14,107,5,185
  59. 520 DATA 40,21,154,12,216,5,103
  60. 530 DATA 40,22,227,14,107,5,185
  61. 540 DATA 40,19,63,16,47,6,108
  62. 545 REM BAR 7 ** A **
  63. 550 DATA 20,17,37,17,37,21,154
  64. 560 DATA 20,21,154,0,0,0,0
  65. 570 DATA 20,25,177,16,47,19,63
  66. 580 DATA 20,22,227,0,0,0,0
  67. 590 DATA 20,21,154,14,107,17,37
  68. 600 DATA 20,17,37,0,0,0,0
  69. 610 DATA 20,21,154,12,216,16,47
  70. 620 DATA 20,19,63,0,0,0,0
  71. 630 REM BAR 8
  72. 640 DATA 20,17,37,11,114,14,107
  73. 650 DATA 20,14,107,0,0,0,0
  74. 660 DATA 20,17,37,10,205,12,216
  75. 670 DATA 20,25,177,0,0,0,0
  76. 680 DATA 20,22,227,11,114,14,107
  77. 690 DATA 20,28,214,0,0,0,0
  78. 700 DATA 20,25,177,9,159,16,47
  79. 710 DATA 20,22,227,0,0,0,0
  80. 720 REM BAR 9
  81. 730 DATA 20,21,154,8,147,17,37
  82. 740 DATA 20,17,37,10,205,0,0
  83. 750 DATA 20,19,63,12,216,16,47
  84. 760 DATA 20,32,94,11,114,0,0
  85. 770 DATA 20,34,75,10,205,14,107
  86. 780 DATA 20,43,52,8,147,0,0
  87. 790 DATA 20,51,97,10,205,12,216
  88. 800 DATA 20,25,177,9,159,0,0
  89. 810 REM BAR 10
  90. 820 DATA 20,28,214,8,147,11,114
  91. 830 DATA 20,22,227,7,53,0,0
  92. 840 DATA 20,25,177,8,147,10,205
  93. 850 DATA 20,21,154,12,216,0,0
  94. 860 DATA 20,17,37,11,114,11,114
  95. 870 DATA 20,34,75,14,107,0,0
  96. 880 DATA 5,34,75,12,216,9,159
  97. 890 DATA 5,38,126,0,0,0,0
  98. 900 DATA 5,34,75,0,0,0,0
  99. 910 DATA 5,38,126,0,0,0,0
  100. 920 DATA 10,34,75,11,114,0,0
  101. 930 DATA 10,32,94,0,0,0,0
  102. 940 REM BAR 11
  103. 950 DATA 10,34,75,10,205,8,147
  104. 960 DATA 10,32,94,0,0,0,0
  105. 970 DATA 10,34,75,8,147,10,205
  106. 980 DATA 10,17,37,0,0,0,0
  107. 990 DATA 10,16,47,9,159,12,216
  108. 1000 DATA 10,25,177,0,0,0,0
  109. 1010 DATA 10,19,63,16,47,11,114
  110. 1020 DATA 10,21,154,0,0,0,0
  111. 1030 DATA 10,17,37,17,37,10,205
  112. 1040 DATA 10,34,75,0,0,0,0
  113. 1050 DATA 10,32,94,21,154,8,147
  114. 1060 DATA 10,28,214,0,0,0,0
  115. 1070 DATA 10,32,94,25,177,10,205
  116. 1080 DATA 10,43,52,0,0,0,0
  117. 1090 DATA 10,51,97,12,216,9,159
  118. 1100 DATA 10,57,172,0,0,0,0
  119. 1110 REM BAR 12
  120. 1120 DATA 10,45,198,14,107,8,147
  121. 1130 DATA 10,43,52,0,0,0,0
  122. 1140 DATA 10,38,126,11,114,7,53
  123. 1150 DATA 10,45,198,0,0,0,0
  124. 1160 DATA 10,43,52,12,216,8,147
  125. 1170 DATA 10,38,126,0,0,0,0
  126. 1180 DATA 10,34,75,10,205,12,216
  127. 1190 DATA 10,32,94,0,0,0,0
  128. 1200 DATA 10,28,218,8,147,11,114
  129. 1210 DATA 10,25,177,0,0,0,0
  130. 1220 DATA 10,22,227,17,37,14,107
  131. 1230 DATA 10,21,154,0,0,0,0
  132. 1240 DATA 10,19,63,17,37,12,216
  133. 1250 DATA 10,22,227,0,0,0,0
  134. 1260 DATA 10,21,154,0,0,11,114
  135. 1270 DATA 10,19,63,16,47,0,0
  136. 1280 REM BAR 13
  137. 1290 DATA 10,17,37,34,75,10,205
  138. 1300 DATA 10,19,63,32,94,0,0
  139. 1310 DATA 10,21,154,34,75,8,147
  140. 1320 DATA 10,22,227,17,37,0,0
  141. 1330 DATA 10,25,177,16,47,9,159
  142. 1340 DATA 10,19,63,25,177,0,0
  143. 1350 DATA 10,25,177,19,63,16,47
  144. 1360 DATA 10,22,227,21,154,0,0
  145. 1370 DATA 10,21,154,17,37,17,37
  146. 1380 DATA 10,28,214,34,75,0,0
  147. 1390 DATA 10,25,177,32,94,21,154
  148. 1400 DATA 10,22,227,28,214,0,0
  149. 1410 DATA 10,25,177,32,94,25,177
  150. 1420 DATA 10,22,227,43,52,0,0
  151. 1430 DATA 10,21,154,51,97,12,216
  152. 1440 DATA 10,19,63,57,172,0,0
  153. 1450 REM BAR 14
  154. 1460 DATA 10,17,37,45,198,14,107
  155. 1470 DATA 10,14,107,43,52,0,0
  156. 1480 DATA 10,28,214,38,126,11,114
  157. 1490 DATA 10,32,94,45,198,0,0
  158. 1500 DATA 10,34,75,43,52,12,216
  159. 1510 DATA 10,32,94,38,126,0,0
  160. 1520 DATA 10,28,214,34,75,10,205
  161. 1530 DATA 10,25,177,32,94,0,0
  162. 1540 DATA 10,22,227,28,214,8,147
  163. 1550 DATA 10,21,154,25,177,0,0
  164. 1560 DATA 10,19,63,22,227,17,37
  165. 1570 DATA 10,28,154,21,154,0,0
  166. 1580 DATA 10,25,177,19,63,17,37
  167. 1590 DATA 10,28,214,22,227,0,0
  168. 1600 DATA 10,25,177,21,154,0,0
  169. 1610 DATA 10,22,227,19,63,16,47
  170. 1620 REM BAR 15 ** B **
  171. 1630 DATA 10,21,154,34,75,10,205
  172. 1640 DATA 10,19,63,32,94,0,0
  173. 1650 DATA 10,21,154,34,75,21,154
  174. 1660 DATA 10,22,227,17,37,0,0
  175. 1670 DATA 10,25,177,16,47,19,63
  176. 1680 DATA 10,19,63,25,177,0,0
  177. 1690 DATA 10,25,177,19,63,0,0
  178. 1700 DATA 10,22,227,21,154,0,0
  179. 1710 DATA 10,21,154,17,37,7,53
  180. 1720 DATA 10,28,214,34,75,0,0
  181. 1730 DATA 10,25,177,32,94,17,37
  182. 1740 DATA 10,22,227,28,214,0,0
  183. 1750 DATA 10,25,177,32,94,21,154
  184. 1760 DATA 10,22,227,43,52,0,0
  185. 1770 DATA 10,21,154,51,97,0,0
  186. 1780 DATA 10,19,63,57,172,0,0
  187. 1790 REM BAR 16
  188. 1800 DATA 10,17,37,45,198,28,214
  189. 1810 DATA 10,14,107,43,52,0,0
  190. 1820 DATA 10,28,214,38,126,0,0
  191. 1830 DATA 10,32,94,45,198,0,0
  192. 1840 DATA 10,34,75,43,52,25,177
  193. 1850 DATA 10,32,94,38,126,0,0
  194. 1860 DATA 10,28,214,34,75,0,0
  195. 1870 DATA 10,25,177,32,94,0,0
  196. 1880 DATA 10,22,227,28,214,28,214
  197. 1890 DATA 10,21,154,25,177,0,0
  198. 1900 DATA 10,19,63,22,227,0,0
  199. 1910 DATA 10,28,214,21,154,0,0
  200. 1920 DATA 10,25,177,19,63,32,94
  201. 1930 DATA 10,28,214,22,227,0,0
  202. 1940 DATA 10,25,177,21,154,0,0
  203. 1950 DATA 10,22,227,19,63,0,0
  204. 1960 REM BAR 17
  205. 1970 DATA 10,17,37,21,154,34,75
  206. 1980 DATA 10,19,63,0,0,0,0
  207. 1990 DATA 10,21,154,43,52,17,37
  208. 2000 DATA 10,22,227,0,0,0,0
  209. 2010 DATA 10,25,177,38,126,16,47
  210. 2020 DATA 10,19,63,0,0,0,0
  211. 2030 DATA 10,25,177,0,0,0,0
  212. 2040 DATA 10,22,227,0,0,0,0
  213. 2050 DATA 10,21,154,14,107,7,53
  214. 2060 DATA 10,28,214,0,0,0,0
  215. 2070 DATA 10,25,177,28,214,17,37
  216. 2080 DATA 10,22,227,0,0,0,0
  217. 2090 DATA 10,25,177,34,75,21,154
  218. 2100 DATA 10,22,227,0,0,0,0
  219. 2110 DATA 10,21,154,0,0,0,0
  220. 2120 DATA 10,19,63,0,0,0,0
  221. 2130 REM BAR 18
  222. 2140 DATA 10,17,37,34,75,28,214
  223. 2150 DATA 10,14,107,0,0,0,0
  224. 2160 DATA 10,28,214,0,0,0,0
  225. 2170 DATA 10,32,94,0,0,0,0
  226. 2180 DATA 10,34,75,0,0,25,177
  227. 2190 DATA 10,32,94,0,0,0,0
  228. 2200 DATA 10,28,214,34,75,0,0
  229. 2210 DATA 10,25,177,0,0,0,0
  230. 2220 DATA 10,22,227,34,75,28,214
  231. 2230 DATA 10,21,154,0,0,0,0
  232. 2240 DATA 10,19,63,45,198,0,0
  233. 2250 DATA 10,28,214,0,0,0,0
  234. 2260 DATA 10,25,177,38,126,32,94
  235. 2270 DATA 10,28,214,0,0,0,0
  236. 2280 DATA 10,25,177,51,97,0,0
  237. 2290 DATA 10,22,227,0,0,0,0
  238. 2300 REM BAR 19
  239. 2310 DATA 10,51,97,21,154,34,75
  240. 2320 DATA 5,43,52,0,0,0,0
  241. 2330 DATA 5,45,198,0,0,0,0
  242. 2340 DATA 10,51,97,43,52,17,37
  243. 2350 DATA 5,43,52,0,0,0,0
  244. 2360 DATA 5,45,198,0,0,0,0
  245. 2370 DATA 5,51,97,38,126,16,47
  246. 2380 DATA 5,25,177,0,0,0,0
  247. 2390 DATA 5,28,214,0,0,0,0
  248. 2400 DATA 5,32,94,0,0,0,0
  249. 2410 DATA 5,34,75,0,0,0,0
  250. 2420 DATA 5,38,126,0,0,0,0
  251. 2430 DATA 5,43,52,0,0,0,0
  252. 2440 DATA 5,45,198,0,0,0,0
  253. 2450 DATA 10,43,52,14,107,7,53
  254. 2460 DATA 5,34,75,0,0,0,0
  255. 2470 DATA 5,38,126,0,0,0,0
  256. 2480 DATA 10,43,52,17,37,14,107
  257. 2490 DATA 5,21,154,0,0,0,0
  258. 2500 DATA 5,22,227,0,0,0,0
  259. 2510 DATA 5,25,177,21,154,17,37
  260. 2520 DATA 5,28,214,0,0,0,0
  261. 2530 DATA 5,25,177,0,0,0,0
  262. 2540 DATA 5,22,227,0,0,0,0
  263. 2550 DATA 5,25,177,0,0,0,0
  264. 2560 DATA 5,21,154,0,0,0,0
  265. 2570 DATA 5,22,227,0,0,0,0
  266. 2580 DATA 5,25,177,0,0,0,0
  267. 2590 REM BAR 20
  268. 2600 DATA 10,22,227,28,214,17,37
  269. 2610 DATA 5,28,214,0,0,0,0
  270. 2620 DATA 5,25,177,0,0,0,0
  271. 2630 DATA 10,22,227,0,0,0,0
  272. 2640 DATA 5,21,154,0,0,0,0
  273. 2650 DATA 5,19,63,0,0,0,0
  274. 2660 DATA 5,21,154,25,177,0,0
  275. 2670 DATA 5,19,63,0,0,0,0
  276. 2680 DATA 5,17,37,0,0,0,0
  277. 2690 DATA 5,19,63,0,0,0,0
  278. 2700 DATA 5,21,154,0,0,17,37
  279. 2710 DATA 5,22,227,0,0,0,0
  280. 2720 DATA 5,25,177,0,0,0,0
  281. 2730 DATA 5,28,214,0,0,0,0
  282. 2740 DATA 10,22,227,28,214,17,37
  283. 2750 DATA 5,28,214,0,0,0,0
  284. 2760 DATA 5,25,177,0,0,0,0
  285. 2770 DATA 10,28,214,0,0,22,227
  286. 2780 DATA 5,32,94,0,0,0,0
  287. 2790 DATA 5,34,75,0,0,0,0
  288. 2800 DATA 5,25,177,32,94,19,63
  289. 2810 DATA 5,28,154,0,0,0,0
  290. 2820 DATA 5,32,94,0,0,0,0
  291. 2830 DATA 5,34,75,0,0,0,0
  292. 2840 DATA 5,38,126,0,0,25,177
  293. 2850 DATA 5,43,52,0,0,0,0
  294. 2860 DATA 5,45,198,0,0,0,0
  295. 2870 DATA 5,51,97,0,0,0,0
  296. 2880 REM BAR 21 ** C **
  297. 2890 DATA 10,51,97,43,52,34,75
  298. 2900 DATA 5,43,52,34,75,0,0
  299. 2910 DATA 5,45,198,38,126,0,0
  300. 2920 DATA 10,51,97,43,52,17,37
  301. 2930 DATA 5,43,52,38,126,0,0
  302. 2940 DATA 5,45,198,34,75,0,0
  303. 2950 DATA 5,51,97,38,126,16,47
  304. 2960 DATA 5,25,177,32,94,0,0
  305. 2970 DATA 5,28,214,34,75,0,0
  306. 2980 DATA 5,32,94,38,126,0,0
  307. 2990 DATA 5,34,75,43,52,0,0
  308. 3000 DATA 5,38,126,38,126,0,0
  309. 3010 DATA 5,43,52,34,75,0,0
  310. 3020 DATA 5,45,198,32,94,0,0
  311. 3030 DATA 10,43,52,34,75,7,53
  312. 3040 DATA 5,34,75,28,214,0,0
  313. 3050 DATA 5,38,126,32,94,0,0
  314. 3060 DATA 10,43,52,34,75,14,107
  315. 3070 DATA 5,21,154,17,37,0,0
  316. 3080 DATA 5,22,227,19,63,0,0
  317. 3090 DATA 5,25,177,21,154,17,37
  318. 3100 DATA 5,28,214,22,227,0,0
  319. 3110 DATA 5,25,177,21,154,0,0
  320. 3120 DATA 5,22,227,19,63,0,0
  321. 3130 DATA 5,25,177,21,154,0,0
  322. 3140 DATA 5,21,154,34,75,0,0
  323. 3150 DATA 5,22,227,32,94,0,0
  324. 3160 DATA 5,25,177,34,75,0,0
  325. 3170 REM BAR 22
  326. 3180 DATA 10,22,227,28,214,17,37
  327. 3190 DATA 5,28,214,34,75,0,0
  328. 3200 DATA 5,25,177,32,94,0,0
  329. 3210 DATA 10,22,227,28,214,0,0
  330. 3220 DATA 5,21,154,25,177,0,0
  331. 3230 DATA 5,19,63,22,227,0,0
  332. 3240 DATA 5,21,154,25,177,0,0
  333. 3250 DATA 5,19,63,22,227,0,0
  334. 3260 DATA 5,17,37,21,154,0,0
  335. 3270 DATA 5,19,63,22,227,0,0
  336. 3280 DATA 5,21,154,25,177,17,37
  337. 3290 DATA 5,22,227,28,214,0,0
  338. 3300 DATA 5,25,177,32,94,0,0
  339. 3310 DATA 5,28,214,34,75,0,0
  340. 3320 DATA 10,22,227,28,214,17,37
  341. 3330 DATA 5,28,214,34,75,0,0
  342. 3340 DATA 5,25,177,32,94,0,0
  343. 3350 DATA 10,28,214,34,75,22,227
  344. 3360 DATA 5,32,94,32,94,0,0
  345. 3370 DATA 5,34,75,28,214,0,0
  346. 3380 DATA 5,25,177,32,94,19,63
  347. 3390 DATA 5,28,214,34,75,0,0
  348. 3400 DATA 5,32,94,38,126,0,0
  349. 3410 DATA 5,34,75,34,75,0,0
  350. 3420 DATA 5,38,126,32,94,25,177
  351. 3430 DATA 5,43,52,34,75,0,0
  352. 3440 DATA 5,45,198,28,214,0,0
  353. 3450 DATA 5,51,97,32,94,0,0
  354. 3460 REM BAR 23
  355. 3470 DATA 10,43,52,51,97,17,37
  356. 3480 DATA 5,34,75,43,52,0,0
  357. 3490 DATA 5,38,126,45,198,0,0
  358. 3500 DATA 10,43,52,51,97,0,0
  359. 3510 DATA 5,38,126,43,52,0,0
  360. 3520 DATA 5,34,75,45,198,0,0
  361. 3530 DATA 5,38,126,51,97,16,47
  362. 3540 DATA 5,32,94,25,177,0,0
  363. 3550 DATA 5,34,75,28,214,0,0
  364. 3560 DATA 5,38,126,32,94,0,0
  365. 3570 DATA 5,43,52,34,75,0,0
  366. 3580 DATA 5,38,126,38,126,0,0
  367. 3590 DATA 5,34,75,43,52,0,0
  368. 3600 DATA 5,32,94,45,198,0,0
  369. 3610 DATA 10,34,75,43,52,14,107
  370. 3620 DATA 5,28,214,34,75,0,0
  371. 3630 DATA 5,32,94,38,126,0,0
  372. 3640 DATA 10,34,75,43,52,0,0
  373. 3650 DATA 5,17,37,21,154,0,0
  374. 3660 DATA 5,19,63,22,227,0,0
  375. 3670 DATA 5,21,154,25,177,17,37
  376. 3680 DATA 5,22,227,28,214,0,0
  377. 3690 DATA 5,21,154,25,177,0,0
  378. 3700 DATA 5,19,63,22,227,0,0
  379. 3710 DATA 5,21,154,25,177,0,0
  380. 3720 DATA 5,34,75,21,154,0,0
  381. 3730 DATA 5,32,94,22,227,0,0
  382. 3740 DATA 5,34,75,25,177,0,0
  383. 3750 REM BAR 24
  384. 3760 DATA 10,28,214,22,227,8,147
  385. 3770 DATA 5,34,74,28,214,0,0
  386. 3780 DATA 5,32,94,25,177,0,0
  387. 3790 DATA 10,28,214,22,227,0,0
  388. 3800 DATA 5,25,177,21,154,0,0
  389. 3810 DATA 5,22,227,19,63,0,0
  390. 3820 DATA 5,25,177,21,154,8,147
  391. 3830 DATA 5,22,227,19,63,0,0
  392. 3840 DATA 5,21,154,17,37,0,0
  393. 3850 DATA 5,22,227,19,63,0,0
  394. 3860 DATA 5,25,177,21,154,0,0
  395. 3870 DATA 5,28,214,22,227,0,0
  396. 3880 DATA 5,32,94,25,177,0,0
  397. 3890 DATA 5,34,75,28,214,0,0
  398. 3900 DATA 10,28,214,22,227,8,147
  399. 3910 DATA 5,34,75,28,214,0,0
  400. 3920 DATA 5,32,94,25,177,0,0
  401. 3930 DATA 10,34,75,28,214,0,0
  402. 3940 DATA 5,32,94,32,94,0,0
  403. 3950 DATA 5,28,214,34,75,0,0
  404. 3960 DATA 5,32,94,25,177,9,159
  405. 3970 DATA 5,34,75,28,214,0,0
  406. 3980 DATA 5,38,126,32,94,0,0
  407. 3990 DATA 5,34,75,34,75,0,0
  408. 4000 DATA 5,32,94,38,126,0,0
  409. 4010 DATA 5,34,75,43,52,0,0
  410. 4020 DATA 5,28,214,45,198,0,0
  411. 4030 DATA 5,32,94,51,97,0,0
  412. 4040 REM BAR 25
  413. 4050 DATA 10,43,52,17,37,8,147
  414. 4060 DATA 5,34,75,0,0,0,0
  415. 4070 DATA 5,38,126,0,0,0,0
  416. 4080 DATA 10,43,52,0,0,0,0
  417. 4090 DATA 5,38,126,0,0,0,0
  418. 4100 DATA 5,34,75,0,0,0,0
  419. 4110 DATA 5,38,126,16,47,6,108
  420. 4120 DATA 5,32,94,0,0,0,0
  421. 4130 DATA 5,34,75,0,0,0,0
  422. 4140 DATA 5,38,126,0,0,0,0
  423. 4150 DATA 5,43,52,0,0,0,0
  424. 4160 DATA 5,38,126,0,0,0,0
  425. 4170 DATA 5,34,75,0,0,0,0
  426. 4180 DATA 5,32,94,0,0,0,0
  427. 4190 DATA 10,34,75,14,107,7,53
  428. 4200 DATA 5,28,214,0,0,0,0
  429. 4210 DATA 5,32,94,0,0,0,0
  430. 4220 DATA 10,34,75,0,0,0,0
  431. 4230 DATA 5,17,37,0,0,0,0
  432. 4240 DATA 5,19,63,0,0,0,0
  433. 4250 DATA 5,21,154,17,37,5,103
  434. 4260 DATA 5,22,227,0,0,0,0
  435. 4270 DATA 5,21,154,0,0,0,0
  436. 4280 DATA 5,19,63,0,0,0,0
  437. 4290 DATA 5,21,154,0,0,0,0
  438. 4300 DATA 5,34,75,0,0,0,0
  439. 4310 DATA 5,32,94,0,0,0,0
  440. 4320 DATA 5,34,75,0,0,0,0
  441. 4330 REM BAR 26
  442. 4340 DATA 10,28,214,17,37,8,147
  443. 4350 DATA 5,34,75,0,0,0,0
  444. 4360 DATA 5,32,94,0,0,0,0
  445. 4370 DATA 10,28,214,0,0,0,0
  446. 4380 DATA 5,25,177,0,0,0,0
  447. 4390 DATA 5,22,227,0,0,0,0
  448. 4400 DATA 5,25,177,17,37,8,147
  449. 4410 DATA 5,22,227,0,0,0,0
  450. 4420 DATA 5,21,154,0,0,0,0
  451. 4430 DATA 5,22,227,0,0,0,0
  452. 4440 DATA 5,25,177,0,0,0,0
  453. 4450 DATA 5,28,214,0,0,0,0
  454. 4460 DATA 5,32,94,0,0,0,0
  455. 4470 DATA 5,34,75,0,0,0,0
  456. 4480 DATA 10,28,214,17,37,8,147
  457. 4490 DATA 5,34,75,0,0,0,0
  458. 4500 DATA 5,32,94,0,0,0,0
  459. 4510 DATA 10,34,75,0,0,0,0
  460. 4520 DATA 5,32,75,0,0,0,0
  461. 4530 DATA 5,28,214,0,0,0,0
  462. 4540 DATA 5,32,94,19,63,9,159
  463. 4550 DATA 5,34,75,0,0,0,0
  464. 4560 DATA 5,38,126,0,0,0,0
  465. 4570 DATA 5,34,75,0,0,0,0
  466. 4580 DATA 5,32,94,0,0,0,0
  467. 4590 DATA 5,34,75,0,0,0,0
  468. 4600 DATA 5,28,214,0,0,0,0
  469. 4610 DATA 5,32,94,0,0,0,0
  470. 4620 REM BAR 27
  471. 4630 DATA 10,43,52,17,37,8,147
  472. 4640 DATA 10,21,154,0,0,0,0
  473. 4650 DATA 10,22,227,0,0,12,216
  474. 4660 DATA 10,21,154,0,0,0,0
  475. 4670 DATA 10,19,63,16,47,6,108
  476. 4680 DATA 10,38,126,0,0,0,0
  477. 4690 DATA 10,43,52,0,0,12,216
  478. 4700 DATA 10,38,126,0,0,0,0
  479. 4710 DATA 10,34,75,14,107,7,53
  480. 4720 DATA 10,21,154,0,0,0,0
  481. 4730 DATA 10,17,37,0,0,10,205
  482. 4740 DATA 10,28,214,0,0,0,0
  483. 4750 DATA 10,25,177,17,37,5,103
  484. 4760 DATA 10,12,216,0,0,0,0
  485. 4770 DATA 10,11,114,0,0,12,216
  486. 4780 DATA 10,12,216,0,0,0,0
  487. 4790 REM BAR 28
  488. 4800 DATA 10,14,107,17,37,5,185
  489. 4810 DATA 10,28,214,0,0,0,0
  490. 4820 DATA 10,32,94,0,0,11,114
  491. 4830 DATA 10,28,214,0,0,0,0
  492. 4840 DATA 10,25,177,17,37,8,147
  493. 4850 DATA 10,12,216,0,0,0,0
  494. 4860 DATA 10,11,114,0,0,10,205
  495. 4870 DATA 10,12,216,0,0,0,0
  496. 4880 DATA 10,14,107,17,37,5,185
  497. 4890 DATA 10,28,214,0,0,0,0
  498. 4900 DATA 10,25,177,0,0,11,114
  499. 4910 DATA 10,28,214,0,0,0,0
  500. 4920 DATA 10,32,94,19,63,6,108
  501. 4930 DATA 10,16,47,0,0,0,0
  502. 4940 DATA 10,14,107,0,0,19,63
  503. 4950 DATA 10,16,47,0,0,0,0
  504. 4960 REM BAR 29 ** D **
  505. 4970 DATA 10,17,37,43,52,17,37
  506. 4980 DATA 10,34,75,21,154,0,0
  507. 4990 DATA 10,38,126,22,227,12,216
  508. 5000 DATA 10,34,75,21,154,0,0
  509. 5010 DATA 10,32,94,19,63,12,216
  510. 5020 DATA 10,16,47,38,126,0,0
  511. 5030 DATA 10,17,37,43,52,12,216
  512. 5040 DATA 10,16,47,38,126,0,0
  513. 5050 DATA 10,14,107,34,75,14,107
  514. 5060 DATA 10,28,214,21,154,0,0
  515. 5070 DATA 10,25,177,17,37,10,205
  516. 5080 DATA 10,28,214,28,214,0,0
  517. 5090 DATA 10,32,94,25,177,10,205
  518. 5100 DATA 10,16,47,12,216,0,0
  519. 5110 DATA 10,21,154,11,114,12,216
  520. 5120 DATA 10,19,63,12,216,0,0
  521. 5130 REM BAR 30
  522. 5140 DATA 10,17,37,14,107,11,114
  523. 5150 DATA 10,34,75,28,214,0,0
  524. 5160 DATA 10,38,126,32,94,11,114
  525. 5170 DATA 10,45,198,28,214,0,0
  526. 5180 DATA 10,43,52,25,177,8,147
  527. 5190 DATA 10,21,154,12,216,0,0
  528. 5200 DATA 10,25,177,11,114,10,205
  529. 5210 DATA 10,43,52,12,216,0,0
  530. 5220 DATA 10,34,75,14,107,11,114
  531. 5230 DATA 10,45,198,28,214,0,0
  532. 5240 DATA 10,43,52,25,177,11,114
  533. 5250 DATA 10,45,198,28,214,0,0
  534. 5260 DATA 10,38,126,32,94,12,216
  535. 5270 DATA 10,25,177,16,47,0,0
  536. 5280 DATA 10,22,227,14,107,19,63
  537. 5290 DATA 10,25,177,16,47,0,0
  538. 5300 REM BAR 31
  539. 5310 DATA 10,43,52,17,37,10,205
  540. 5320 DATA 10,21,154,34,75,12,216
  541. 5330 DATA 10,22,227,38,126,12,216
  542. 5340 DATA 10,21,154,34,75,12,216
  543. 5350 DATA 10,19,63,32,94,12,216
  544. 5360 DATA 10,38,126,16,47,12,216
  545. 5370 DATA 10,43,52,17,37,12,216
  546. 5380 DATA 10,38,126,16,47,12,216
  547. 5390 DATA 10,34,75,14,107,10,205
  548. 5400 DATA 10,21,154,28,214,10,205
  549. 5410 DATA 10,17,37,25,177,10,205
  550. 5420 DATA 10,28,214,28,214,10,205
  551. 5430 DATA 10,25,177,32,94,10,205
  552. 5440 DATA 10,12,216,16,47,10,205
  553. 5450 DATA 10,11,114,21,154,12,216
  554. 5460 DATA 10,12,216,19,63,12,216
  555. 5470 REM BAR 32
  556. 5480 DATA 10,14,107,17,37,11,114
  557. 5490 DATA 10,28,214,34,75,11,114
  558. 5500 DATA 10,32,94,38,126,11,114
  559. 5510 DATA 10,28,214,45,198,17,37
  560. 5520 DATA 10,25,177,43,52,17,37
  561. 5530 DATA 10,12,216,21,154,17,37
  562. 5540 DATA 10,11,114,25,177,17,37
  563. 5550 DATA 10,12,216,43,52,17,37
  564. 5560 DATA 10,14,107,34,75,17,37
  565. 5570 DATA 10,28,214,45,198,17,37
  566. 5580 DATA 10,25,177,43,52,14,107
  567. 5590 DATA 10,28,214,45,198,14,107
  568. 5600 DATA 10,32,94,38,126,12,216
  569. 5610 DATA 10,16,47,25,177,12,216
  570. 5620 DATA 10,14,107,22,227,19,63
  571. 5630 DATA 10,16,47,25,177,16,47
  572. 5640 REM BAR 33
  573. 5650 DATA 10,17,37,21,154,12,216
  574. 5660 DATA 10,34,75,25,177,21,154
  575. 5670 DATA 10,38,126,25,177,21,154
  576. 5680 DATA 10,34,75,25,177,21,154
  577. 5690 DATA 10,32,94,25,177,19,63
  578. 5700 DATA 10,16,47,25,177,19,63
  579. 5710 DATA 10,17,37,25,177,19,63
  580. 5720 DATA 10,16,47,25,177,19,63
  581. 5730 DATA 10,14,107,21,154,17,37
  582. 5740 DATA 10,28,214,21,154,17,37
  583. 5750 DATA 10,25,177,21,154,17,37
  584. 5760 DATA 10,28,214,21,154,17,37
  585. 5770 DATA 10,32,94,21,154,25,177
  586. 5780 DATA 10,16,47,21,154,25,177
  587. 5790 DATA 10,21,154,25,177,25,177
  588. 5800 DATA 10,19,63,25,177,25,177
  589. 5810 REM BAR 34
  590. 5820 DATA 10,17,37,22,227,28,214
  591. 5830 DATA 10,34,75,22,227,28,214
  592. 5840 DATA 10,38,12,22,227,28,214
  593. 5850 DATA 10,45,198,34,75,28,214
  594. 5860 DATA 10,43,52,34,75,25,177
  595. 5870 DATA 10,21,154,34,75,25,177
  596. 5880 DATA 10,25,177,34,75,25,177
  597. 5890 DATA 10,43,52,34,75,25,177
  598. 5900 DATA 10,34,75,34,75,28,214
  599. 5910 DATA 10,45,198,34,75,28,214
  600. 5920 DATA 10,43,52,28,214,28,214
  601. 5930 DATA 10,45,198,28,214,28,214
  602. 5940 DATA 10,38,126,25,177,32,94
  603. 5950 DATA 10,25,177,25,177,16,47
  604. 5960 DATA 10,22,227,38,126,16,47
  605. 5970 DATA 10,25,177,32,94,16,47
  606. 5980 REM BAR 35
  607. 5990 DATA 10,34,75,25,177,10,205
  608. 6000 DATA 5,17,37,43,52,12,216
  609. 6010 DATA 5,19,63,0,0,0,0
  610. 6020 DATA 10,21,154,43,52,12,216
  611. 6030 DATA 10,17,37,43,52,12,216
  612. 6040 DATA 10,16,47,38,126,12,216
  613. 6050 DATA 5,32,94,38,126,12,216
  614. 6060 DATA 5,34,75,0,0,0,0
  615. 6070 DATA 10,38,126,38,126,12,216
  616. 6080 DATA 10,32,94,38,126,12,216
  617. 6090 DATA 10,28,214,34,75,10,205
  618. 6100 DATA 5,14,107,34,75,10,205
  619. 6110 DATA 5,16,47,0,0,0,0
  620. 6120 DATA 10,17,37,34,75,10,205
  621. 6130 DATA 10,14,107,34,75,10,205
  622. 6140 DATA 10,16,47,25,177,10,205
  623. 6150 DATA 5,25,177,25,177,10,205
  624. 6160 DATA 5,22,227,0,0,0,0
  625. 6170 DATA 10,21,154,25,177,12,216
  626. 6180 DATA 10,19,63,25,177,12,216
  627. 6190 REM BAR 36
  628. 6200 DATA 10,17,37,28,214,11,114
  629. 6210 DATA 5,22,227,28,214,11,114
  630. 6220 DATA 5,21,154,0,0,0,0
  631. 6230 DATA 10,19,63,28,214,11,114
  632. 6240 DATA 10,22,227,28,214,17,37
  633. 6250 DATA 10,21,154,25,177,17,37
  634. 6260 DATA 5,17,37,25,177,17,37
  635. 6270 DATA 5,19,63,0,0,0,0
  636. 6280 DATA 10,21,154,25,177,17,37
  637. 6290 DATA 10,25,177,25,177,17,37
  638. 6300 DATA 10,22,227,28,214,17,37
  639. 6310 DATA 5,28,214,28,214,17,37
  640. 6320 DATA 5,25,177,0,0,0,0
  641. 6330 DATA 10,22,227,28,214,14,107
  642. 6340 DATA 10,21,154,28,214,14,107
  643. 6350 DATA 10,19,63,32,94,12,216
  644. 6360 DATA 5,25,177,32,94,12,216
  645. 6370 DATA 5,22,227,0,0,0,0
  646. 6380 DATA 10,21,154,32,94,19,63
  647. 6390 DATA 10,19,63,32,94,16,47
  648. 6400 REM BAR 37 ** E **
  649. 6410 DATA 10,21,154,34,75,12,216
  650. 6420 DATA 5,34,75,17,37,21,154
  651. 6430 DATA 5,32,94,19,63,0,0
  652. 6440 DATA 10,34,75,21,154,21,154
  653. 6450 DATA 10,21,154,17,37,21,154
  654. 6460 DATA 10,25,177,16,47,19,63
  655. 6470 DATA 5,25,177,32,94,19,63
  656. 6480 DATA 5,28,214,34,75,0,0
  657. 6490 DATA 10,32,94,38,126,19,63
  658. 6500 DATA 10,25,177,32,94,19,63
  659. 6510 DATA 10,21,154,28,214,17,37
  660. 6520 DATA 5,34,75,14,107,17,37
  661. 6530 DATA 5,38,126,16,47,0,0
  662. 6540 DATA 10,43,52,17,37,17,37
  663. 6550 DATA 10,34,75,14,107,17,37
  664. 6560 DATA 10,43,52,16,47,25,177
  665. 6570 DATA 5,43,52,25,177,25,177
  666. 6580 DATA 5,38,126,22,227,0,0
  667. 6590 DATA 10,34,75,21,154,25,177
  668. 6600 DATA 10,32,94,19,63,25,177
  669. 6610 REM BAR 38
  670. 6620 DATA 10,28,214,17,37,28,214
  671. 6630 DATA 5,28,214,22,227,28,214
  672. 6640 DATA 5,25,177,21,154,0,0
  673. 6650 DATA 10,28,214,19,63,28,214
  674. 6660 DATA 10,32,94,22,227,28,214
  675. 6670 DATA 10,34,75,21,154,25,177
  676. 6680 DATA 5,43,52,17,37,25,177
  677. 6690 DATA 5,38,126,19,63,0,0
  678. 6700 DATA 10,34,75,21,154,25,177
  679. 6710 DATA 10,43,52,25,177,25,177
  680. 6720 DATA 10,45,198,22,227,28,214
  681. 6730 DATA 5,34,75,28,214,28,214
  682. 6740 DATA 5,32,94,25,177,0,0
  683. 6750 DATA 10,28,214,22,227,28,214
  684. 6760 DATA 10,28,214,21,154,28,214
  685. 6770 DATA 10,25,177,19,63,32,94
  686. 6780 DATA 5,19,63,25,177,16,47
  687. 6790 DATA 5,0,0,22,227,0,0
  688. 6800 DATA 10,25,177,21,154,16,47
  689. 6810 DATA 10,25,177,21,154,16,47
  690. 6820 REM BAR 39
  691. 6830 DATA 10,21,154,34,75,12,216
  692. 6840 DATA 5,34,75,17,37,0,0
  693. 6850 DATA 5,32,94,19,63,0,0
  694. 6860 DATA 10,34,75,21,154,0,0
  695. 6870 DATA 10,21,154,17,37,0,0
  696. 6880 DATA 10,25,177,16,47,0,0
  697. 6890 DATA 5,25,177,32,94,0,0
  698. 6900 DATA 5,28,214,34,75,0,0
  699. 6910 DATA 10,32,94,38,126,12,216
  700. 6920 DATA 10,25,177,32,94,0,0
  701. 6930 DATA 10,21,154,28,214,8,147
  702. 6940 DATA 5,34,75,14,107,0,0
  703. 6950 DATA 5,38,126,16,47,0,0
  704. 6960 DATA 10,43,52,17,37,0,0
  705. 6970 DATA 10,34,75,12,216,0,0
  706. 6980 DATA 10,43,52,16,47,0,0
  707. 6990 DATA 5,43,52,25,177,0,0
  708. 7000 DATA 5,38,126,22,227,0,0
  709. 7010 DATA 10,34,75,21,154,12,216
  710. 7020 DATA 10,32,94,19,63,0,0
  711. 7030 REM BAR 40
  712. 7040 DATA 10,28,214,17,37,11,114
  713. 7050 DATA 5,28,214,22,227,0,0
  714. 7060 DATA 5,25,177,21,154,0,0
  715. 7070 DATA 10,28,214,19,63,0,0
  716. 7080 DATA 10,32,94,21,154,0,0
  717. 7090 DATA 10,34,75,21,154,12,216
  718. 7100 DATA 5,43,52,17,37,0,0
  719. 7110 DATA 5,38,126,19,63,0,0
  720. 7120 DATA 10,34,75,21,154,0,0
  721. 7130 DATA 10,43,52,25,177,0,0
  722. 7140 DATA 10,45,198,22,227,11,114
  723. 7150 DATA 5,34,75,28,214,0,0
  724. 7160 DATA 5,32,94,25,177,0,0
  725. 7170 DATA 10,28,214,22,227,8,147
  726. 7180 DATA 10,28,214,21,154,0,0
  727. 7190 DATA 10,25,177,19,63,8,147
  728. 7200 DATA 5,19,63,25,177,0,0
  729. 7210 DATA 5,22,227,19,63,0,0
  730. 7220 DATA 10,25,177,21,154,0,0
  731. 7230 DATA 10,25,177,19,63,8,23
  732. 7240 REM BAR 41
  733. 7250 DATA 10,21,154,8,147,12,216
  734. 7260 DATA 5,34,75,0,0,0,0
  735. 7270 DATA 5,32,94,0,0,0,0
  736. 7280 DATA 10,34,75,17,37,0,0
  737. 7290 DATA 10,21,154,0,0,0,0
  738. 7300 DATA 10,25,177,16,47,0,0
  739. 7310 DATA 5,25,177,0,0,0,0
  740. 7320 DATA 5,28,214,0,0,0,0
  741. 7330 DATA 10,32,94,0,0,12,216
  742. 7340 DATA 10,25,177,0,0,0,0
  743. 7350 DATA 10,21,154,14,107,8,147
  744. 7360 DATA 5,34,75,0,0,0,0
  745. 7370 DATA 5,38,126,0,0,0,0
  746. 7380 DATA 10,43,52,0,0,0,0
  747. 7390 DATA 10,34,75,0,0,0,0
  748. 7400 DATA 10,43,52,12,216,0,0
  749. 7410 DATA 5,43,52,0,0,0,0
  750. 7420 DATA 5,38,126,0,0,0,0
  751. 7430 DATA 10,34,75,0,0,12,216
  752. 7440 DATA 10,32,94,0,0,0,0
  753. 7450 REM BAR 42
  754. 7460 DATA 10,28,214,11,114,8,147
  755. 7470 DATA 5,28,214,0,0,0,0
  756. 7480 DATA 5,25,177,0,0,0,0
  757. 7490 DATA 10,28,214,0,0,0,0
  758. 7500 DATA 10,32,94,0,0,9,159
  759. 7510 DATA 10,34,75,12,216,10,205
  760. 7520 DATA 5,43,52,0,0,0,0
  761. 7530 DATA 5,38,126,0,0,0,0
  762. 7540 DATA 10,34,75,0,0,0,0
  763. 7550 DATA 10,43,52,0,0,0,0
  764. 7560 DATA 10,45,198,11,114,14,107
  765. 7570 DATA 5,34,75,0,0,0,0
  766. 7580 DATA 5,32,94,0,0,0,0
  767. 7590 DATA 10,28,214,8,147,0,0
  768. 7600 DATA 10,28,214,0,0,0,0
  769. 7610 DATA 10,25,177,8,147,9,159
  770. 7620 DATA 10,19,63,0,0,0,0
  771. 7630 DATA 10,25,177,0,0,0,0
  772. 7640 DATA 10,25,177,8,23,9,159
  773. 7650 REM BAR 43 ** F **
  774. 7660 DATA 20,8,147,21,154,12,216
  775. 7670 DATA 10,17,37,0,0,0,0
  776. 7680 DATA 10,0,0,43,52,0,0
  777. 7690 DATA 10,43,52,16,47,0,0
  778. 7700 DATA 10,45,198,0,0,0,0
  779. 7710 DATA 10,43,52,0,0,12,216
  780. 7720 DATA 10,38,126,0,0,0,0
  781. 7730 DATA 30,34,75,14,107,8,147
  782. 7740 DATA 10,34,75,0,0,0,0
  783. 7750 DATA 10,34,75,12,216,0,0
  784. 7760 DATA 10,38,126,0,0,0,0
  785. 7770 DATA 10,34,75,0,0,12,216
  786. 7780 DATA 10,32,94,0,0,0,0
  787. 7790 REM BAR 44
  788. 7800 DATA 30,8,147,28,214,11,114
  789. 7810 DATA 10,9,159,0,0,0,0
  790. 7820 DATA 40,34,75,12,216,10,205
  791. 7830 DATA 10,34,75,11,114,14,107
  792. 7840 DATA 10,30,141,0,0,0,0
  793. 7850 DATA 10,28,214,8,147,0,0
  794. 7860 DATA 10,30,141,0,0,0,0
  795. 7870 DATA 30,25,177,8,147,10,205
  796. 7880 DATA 10,25,177,8,23,10,205
  797. 7890 REM BAR 45
  798. 7900 DATA 20,8,147,25,177,21,154
  799. 7910 DATA 10,17,37,0,0,0,0
  800. 7920 DATA 10,0,0,51,97,43,52
  801. 7930 DATA 10,51,97,43,52,16,47
  802. 7940 DATA 10,57,172,45,198,0,0
  803. 7950 DATA 10,51,97,43,52,0,0
  804. 7960 DATA 10,45,198,38,126,0,0
  805. 7970 DATA 30,43,52,34,75,14,107
  806. 7980 DATA 10,43,52,34,75,0,0
  807. 7990 DATA 10,43,52,34,75,12,216
  808. 8000 DATA 10,45,198,38,126,0,0
  809. 8010 DATA 10,43,52,34,75,0,0
  810. 8020 DATA 10,38,126,32,94,0,0
  811. 8030 REM BAR 46
  812. 8040 DATA 10,34,75,28,214,8,147
  813. 8050 DATA 10,30,141,0,0,0,0
  814. 8060 DATA 10,28,214,0,0,0,0
  815. 8070 DATA 10,30,141,0,0,9,159
  816. 8080 DATA 30,25,177,34,75,10,205
  817. 8090 DATA 10,25,177,0,0,0,0
  818. 8100 DATA 10,34,75,22,227,14,107
  819. 8110 DATA 10,30,141,0,0,0,0
  820. 8120 DATA 10,28,214,34,75,0,0
  821. 8130 DATA 10,30,141,0,0,0,0
  822. 8140 DATA 30,19,63,25,177,16,47
  823. 8150 DATA 10,19,63,25,177,16,47
  824. 8160 REM BAR 47
  825. 8170 DATA 30,21,154,25,177,34,75
  826. 8180 DATA 10,43,52,51,97,0,0
  827. 8190 DATA 10,43,52,51,97,0,0
  828. 8200 DATA 10,45,198,57,172,0,0
  829. 8210 DATA 10,43,52,51,97,32,94
  830. 8220 DATA 10,38,126,45,198,0,0
  831. 8230 DATA 20,34,75,43,52,0,0
  832. 8240 DATA 10,0,0,0,0,28,214
  833. 8250 DATA 10,34,75,43,52,0,0
  834. 8260 DATA 10,34,75,43,52,0,0
  835. 8270 DATA 10,38,126,45,198,0,0
  836. 8280 DATA 10,34,75,43,52,25,177
  837. 8290 DATA 10,32,94,38,126,0,0
  838. 8300 REM BAR 48
  839. 8310 DATA 10,34,75,28,214,0,0
  840. 8320 DATA 10,30,141,0,0,0,0
  841. 8330 DATA 10,28,214,0,0,22,227
  842. 8340 DATA 10,30,141,0,0,0,0
  843. 8350 DATA 20,0,0,34,75,25,177
  844. 8360 DATA 10,21,154,0,0,0,0
  845. 8370 DATA 10,25,177,0,0,21,154
  846. 8380 DATA 10,34,75,22,227,0,0
  847. 8390 DATA 10,30,141,0,0,0,0
  848. 8400 DATA 10,28,214,34,75,0,0
  849. 8410 DATA 10,30,141,0,0,19,63
  850. 8420 DATA 30,25,177,32,94,19,63
  851. 8430 DATA 10,25,177,32,94,0,0
  852. 8440 REM BAR 49 ** G **
  853. 8450 DATA 20,34,75,25,177,10,205
  854. 8460 DATA 10,21,154,0,0,17,37
  855. 8470 DATA 10,51,97,21,154,0,0
  856. 8480 DATA 10,51,97,0,0,0,0
  857. 8490 DATA 10,57,172,0,0,0,0
  858. 8500 DATA 10,51,97,19,63,16,47
  859. 8510 DATA 10,45,198,0,0,0,0
  860. 8520 DATA 20,17,37,43,52,0,0
  861. 8530 DATA 10,34,75,0,0,14,107
  862. 8540 DATA 10,43,52,34,75,0,0
  863. 8550 DATA 10,43,52,0,0,0,0
  864. 8560 DATA 10,45,198,0,0,0,0
  865. 8570 DATA 10,43,52,30,141,12,216
  866. 8580 DATA 10,38,126,0,0,0,0
  867. 8590 REM BAR 50
  868. 8600 DATA 10,34,75,28,214,0,0
  869. 8610 DATA 10,30,141,0,0,0,0
  870. 8620 DATA 10,28,214,0,0,11,114
  871. 8630 DATA 10,30,141,0,0,0,0
  872. 8640 DATA 20,34,75,25,177,0,0
  873. 8650 DATA 10,25,177,0,0,10,205
  874. 8660 DATA 10,0,0,25,177,0,0
  875. 8670 DATA 20,22,227,28,214,0,0
  876. 8680 DATA 10,34,75,0,0,0,0
  877. 8690 DATA 10,9,159,0,0,34,75
  878. 8700 DATA 30,32,94,25,177,9,159
  879. 8710 DATA 10,32,94,0,0,0,0
  880. 8720 REM BAR 51
  881. 8730 DATA 20,34,75,25,177,10,205
  882. 8740 DATA 20,34,75,0,0,21,154
  883. 8750 DATA 20,0,0,25,177,0,0
  884. 8760 DATA 10,19,63,0,0,32,94
  885. 8770 DATA 10,0,0,22,227,0,0
  886. 8780 DATA 20,17,37,21,154,0,0
  887. 8790 DATA 20,28,214,0,0,34,75
  888. 8800 DATA 20,0,0,43,52,0,0
  889. 8810 DATA 10,30,141,0,0,25,177
  890. 8820 DATA 10,0,0,38,126,0,0
  891. 8830 REM BAR 52
  892. 8840 DATA 20,25,177,34,75,28,214
  893. 8850 DATA 20,22,227,0,0,0,0
  894. 8860 DATA 20,22,227,0,0,34,75
  895. 8870 DATA 20,21,154,34,75,25,177
  896. 8880 DATA 30,21,154,34,75,28,214
  897. 8890 DATA 10,19,63,0,0,0,0
  898. 8900 DATA 40,19,63,32,94,25,177
  899. 8910 REM BAR 53
  900. 8920 DATA 20,34,75,21,154,25,177
  901. 8930 DATA 20,17,37,21,154,0,0
  902. 8940 DATA 20,16,47,25,177,12,216
  903. 8950 DATA 10,32,94,0,0,19,63
  904. 8960 DATA 10,22,227,32,94,0,0
  905. 8970 DATA 20,28,214,21,154,17,37
  906. 8980 DATA 20,14,107,0,0,34,75
  907. 8990 DATA 20,12,216,43,52,0,0
  908. 9000 DATA 10,25,177,0,0,30,141
  909. 9010 DATA 10,38,126,25,177,0,0
  910. 9020 REM BAR 54
  911. 9030 DATA 20,22,227,34,75,28,214
  912. 9040 DATA 20,45,198,0,0,0,0
  913. 9050 DATA 20,43,52,0,0,34,75
  914. 9060 DATA 20,21,154,34,75,25,177
  915. 9070 DATA 20,19,63,34,75,28,214
  916. 9080 DATA 20,28,214,0,0,0,0
  917. 9090 DATA 20,19,63,32,94,25,177
  918. 9100 DATA 20,38,126,0,0,0,0
  919. 9110 REM BAR 55
  920. 9120 DATA 20,34,75,43,52,25,177
  921. 9130 DATA 20,17,37,21,154,0,0
  922. 9140 DATA 20,16,47,19,63,12,216
  923. 9150 DATA 10,32,94,38,126,0,0
  924. 9160 DATA 10,0,0,0,0,11,114
  925. 9170 DATA 20,28,214,34,75,10,205
  926. 9180 DATA 20,14,107,17,37,0,0
  927. 9190 DATA 20,12,216,16,47,21,154
  928. 9200 DATA 10,25,177,32,94,0,0
  929. 9210 DATA 10,0,0,0,0,19,63
  930. 9220 REM BAR 56
  931. 9230 DATA 20,22,227,28,214,17,37
  932. 9240 DATA 20,45,198,57,172,0,0
  933. 9250 DATA 20,43,52,51,97,0,0
  934. 9260 DATA 20,21,154,25,177,17,37
  935. 9270 DATA 20,19,63,22,227,17,37
  936. 9280 DATA 10,28,214,0,0,0,0
  937. 9290 DATA 10,0,0,38,126,0,0
  938. 9300 DATA 20,19,63,25,177,16,47
  939. 9310 DATA 20,38,126,25,177,0,0
  940. 9320 REM BAR 57 ** LAST BAR **
  941. 9330 DATA 60,17,37,43,52,25,177
  942. 10000 DATA 0
  943. 20000 LOAD"YESTERDAY",8
  944.